home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / pay1pers.arc / PAYEMPS.PRG < prev    next >
Encoding:
Text File  |  1987-01-15  |  1.3 KB  |  56 lines
  1. * Program..: CRTXEDIT.PRG
  2. * Author...: Martin J. Michaelson
  3. * Date.....: 01/15/87
  4. * Notice...: Copyright (c) 1987, MJM, All Rights Reserved
  5. * Notes....:
  6. * Reserved.: selectnum
  7. *
  8.  
  9. select 1
  10.  
  11. DO WHILE .T.
  12.  
  13.    * ---Display menu options, centered on the screen.
  14.    *    draw menu border and print heading
  15.    CLEAR
  16.    @ 2, 8 TO 14,71 DOUBLE
  17.    @ 3,24 SAY [P E R S O N N E L   R E C O R D S]
  18.    @ 4,9 TO 4,70 DOUBLE
  19.    * ---display detail lines
  20.    @  7,30 SAY [1. ADD INFORMATION]
  21.    @  8,30 SAY [2. CHANGE INFORMATION]
  22.    @  9,30 SAY [3. REVIEW INFORMATION]
  23.    @ 12, 30 SAY '0. RETURN TO MAIN MENU'
  24.    STORE 0 TO selectnum
  25.    @ 14,33 SAY " Select     "
  26.    @ 14,42 GET selectnum PICTURE "9" RANGE 0,4
  27.    READ
  28.  
  29.    DO CASE
  30.       CASE selectnum = 0
  31.          RETURN
  32.  
  33.       CASE selectnum = 1
  34.       *  DO ADD INFORMATION
  35.          SET FORMAT TO CRTX
  36.          APPEND
  37.          SET FORMAT TO
  38.          STORE ' ' TO wait_subst
  39.          @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  40.          READ
  41.  
  42.       CASE selectnum = 2
  43.          do editemps
  44.  
  45.       CASE selectnum = 3
  46.       *  DO REVIEW INFORMATION
  47.          BROWSE
  48.          STORE ' ' TO wait_subst
  49.          @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  50.          READ
  51. ENDCASE
  52.  
  53. ENDDO T
  54. RETURN
  55. * EOF: CRTXEDIT.PRG
  56.